home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Interfaces & Libraries / Interfaces / AIncludes / Icons.a < prev    next >
Encoding:
Text File  |  1993-11-30  |  12.1 KB  |  417 lines  |  [TEXT/MPS ]
  1. ;    File:        Icons.a
  2. ;
  3. ;    Copyright:    © 1983-1993 by Apple Computer, Inc.
  4. ;                All rights reserved.
  5. ;
  6. ;    Version:    System 7.1 for ETO #11
  7. ;    Created:    Tuesday, March 30, 1993 18:00
  8. ;
  9. ;___________________________________________________________________________
  10.  
  11.     IF &TYPE('__INCLUDINGICONS__') = 'UNDEFINED' THEN
  12. __INCLUDINGICONS__    SET    1
  13.  
  14.     IF &TYPE('__INCLUDINGTRAPS__') = 'UNDEFINED' THEN
  15.         INCLUDE        'Traps.a'
  16.     ENDIF    ; ...already included
  17.  
  18. ;    The following are icons for which there are both icon suites and SICNs.
  19.  
  20. genericDocumentIconResource            EQU -4000
  21. genericStationeryIconResource        EQU -3985
  22. genericEditionFileIconResource        EQU -3989
  23. genericApplicationIconResource        EQU -3996
  24. genericDeskAccessoryIconResource    EQU -3991
  25.  
  26. genericFolderIconResource            EQU -3999
  27. privateFolderIconResource            EQU -3994
  28.  
  29. floppyIconResource                    EQU -3998
  30. trashIconResource                    EQU -3993
  31.  
  32. ; The following are icons for which there are SICNs only.
  33.  
  34. desktopIconResource                    EQU -3992
  35. openFolderIconResource                EQU -3997
  36. genericHardDiskIconResource            EQU -3995
  37. genericFileServerIconResource        EQU -3972
  38. genericSuitcaseIconResource            EQU -3970
  39. genericMoverObjectIconResource        EQU -3969
  40.  
  41. ; The following are icons for which there are icon suites only.
  42.  
  43. genericPreferencesIconResource        EQU -3971
  44. genericQueryDocumentIconResource    EQU -16506
  45. genericExtensionIconResource        EQU -16415
  46.  
  47. systemFolderIconResource            EQU -3983
  48. appleMenuFolderIconResource            EQU -3982
  49. startupFolderIconResource            EQU -3981
  50. ownedFolderIconResource                EQU -3980
  51. dropFolderIconResource                EQU -3979
  52. sharedFolderIconResource            EQU -3978
  53. mountedFolderIconResource            EQU -3977
  54. controlPanelFolderIconResource        EQU -3976
  55. printMonitorFolderIconResource        EQU -3975
  56. preferencesFolderIconResource        EQU -3974
  57. extensionsFolderIconResource        EQU -3973
  58.  
  59. fullTrashIconResource                EQU -3984
  60.     
  61.  
  62. Large1BitMask            EQU        ('ICN#')
  63. Large4BitData            EQU        ('icl4')
  64. Large8BitData            EQU        ('icl8')
  65. Small1BitMask            EQU        ('ics#')
  66. Small4BitData            EQU        ('ics4')
  67. Small8BitData            EQU        ('ics8')
  68. Mini1BitMask            EQU        ('icm#')
  69. Mini4BitData            EQU        ('icm4')
  70. Mini8BitData            EQU        ('icm8')
  71.  
  72.  
  73. ; Alignment Equates
  74.  
  75. atNone                    EQU        $0
  76. atVerticalCenter        EQU        $1
  77. atTop                    EQU        $2
  78. atBottom                EQU        $3
  79. atHorizontalCenter        EQU        $4
  80. atAbsoluteCenter        EQU        (atVerticalCenter | atHorizontalCenter)
  81. atCenterTop                EQU        (atTop | atHorizontalCenter)
  82. atCenterBottom            EQU        (atBottom | atHorizontalCenter)
  83. atLeft                    EQU        $8
  84. atCenterLeft            EQU        (atVerticalCenter | atLeft)
  85. atTopLeft                EQU        (atTop | atLeft)
  86. atBottomLeft            EQU        (atBottom | atLeft)
  87. atRight                    EQU        $C
  88. atCenterRight            EQU        (atVerticalCenter | atRight)
  89. atTopRight                EQU        (atTop | atRight)
  90. atBottomRight            EQU        (atBottom | atRight)
  91.  
  92. ;Transform Types
  93.  
  94. ttNone                    EQU        $0
  95. ttDisabled                EQU        $1
  96. ttOffline                EQU        $2
  97. ttOpen                    EQU        $3
  98. ttLabel1                EQU        $0100
  99. ttLabel2                EQU        $0200
  100. ttLabel3                EQU        $0300
  101. ttLabel4                EQU        $0400
  102. ttLabel5                EQU        $0500
  103. ttLabel6                EQU        $0600
  104. ttLabel7                EQU        $0700
  105. ttSelected                EQU        $4000
  106. ttSelectedDisabled        EQU        (ttSelected    | ttDisabled)
  107. ttSelectedOffline        EQU        (ttSelected    | ttOffline)
  108. ttSelectedOpen            EQU        (ttSelected    | ttOpen)
  109.  
  110. ;Selector mask values
  111.  
  112. svLarge1Bit                EQU        $00000001
  113. svLarge4Bit                EQU        $00000002
  114. svLarge8Bit                EQU        $00000004
  115. svSmall1Bit                EQU        $00000100
  116. svSmall4Bit                EQU        $00000200
  117. svSmall8Bit                EQU        $00000400
  118. svMini1Bit                EQU        $00010000
  119. svMini4Bit                EQU        $00020000
  120. svMini8Bit                EQU        $00040000
  121. svAllLargeData            EQU        $000000FF
  122. svAllSmallData            EQU        $0000FF00
  123. svAllMiniData            EQU        $00FF0000
  124. svAll1BitData            EQU        (svLarge1Bit | svSmall1Bit | svMini1Bit)
  125. svAll4BitData            EQU        (svLarge4Bit | svSmall4Bit | svMini4Bit)
  126. svAll8BitData            EQU        (svLarge8Bit | svSmall8Bit | svMini8Bit)
  127. svAllAvailableData        EQU        $FFFFFFFF
  128.  
  129. ;————————————————————————————————————————————————————————————————————————————————————————————————————
  130. ; Define the new selectors for the Icon Utilities
  131.  
  132. selectPlotIconID        EQU        $0
  133. selectGetIconSuite        EQU        $1
  134. selectDisposeIconSuite    EQU        $2
  135. selectPlotIconSuite        EQU        $3
  136. selectMakeIconCache        EQU        $4
  137. selectPlotIconMethod    EQU        $5
  138. selectLoadIconCache        EQU        $6
  139. selectNewIconSuite        EQU        $7
  140. selectAddIconToSuite    EQU        $8
  141. selectGetIconFromSuite    EQU        $9
  142. selectForEachIconDo        EQU        $A
  143. selectGetLabel            EQU        $B
  144. selectPtInIconID        EQU        $D
  145. selectPtInIconSuite        EQU        $E
  146. selectPtInIconMethod    EQU        $F
  147. selectRectInIconID        EQU        $10
  148. selectRectInIconSuite    EQU        $11
  149. selectRectInIconMethod    EQU        $12
  150. selectIconIDToRgn        EQU        $13
  151. selectIconSuiteToRgn    EQU        $14
  152. selectIconMethodToRgn    EQU        $15
  153. selectSetSuiteLabel        EQU        $16
  154. selectGetSuiteLabel        EQU        $17
  155. selectGetIconCacheData    EQU        $19
  156. selectSetIconCacheData    EQU        $1A
  157. selectGetIconCacheProc    EQU        $1B
  158. selectSetIconCacheProc    EQU        $1C
  159. selectPlotIconHandle    EQU        $1D
  160. selectPlotSICNHandle    EQU        $1E
  161. selectPlotCIconHandle    EQU        $1F
  162.  
  163. ;————————————————————————————————————————————————————————————————————————————————————————————————————
  164. ; Define the new paramors for the Icon Utilities
  165.  
  166. paramPlotIconID            EQU        $5
  167. paramGetIconSuite        EQU        $5
  168. paramDisposeIconSuite    EQU        $3
  169. paramPlotIconSuite        EQU        $6
  170. paramMakeIconCache        EQU        $6
  171. paramPlotIconMethod        EQU        $8
  172. paramLoadIconCache        EQU        $6
  173. paramNewIconSuite        EQU        $2
  174. paramAddIconToSuite        EQU        $6
  175. paramGetIconFromSuite    EQU        $6
  176. paramForEachIconDo        EQU        $8
  177. paramGetLabel            EQU        $5
  178. paramPtInIconID            EQU        $6
  179. paramPtInIconSuite        EQU        $7
  180. paramPtInIconMethod        EQU        $9
  181. paramRectInIconID        EQU        $6
  182. paramRectInIconSuite    EQU        $7
  183. paramRectInIconMethod    EQU        $9
  184. paramIconIDToRgn        EQU        $6
  185. paramIconSuiteToRgn        EQU        $7
  186. paramIconMethodToRgn    EQU        $9
  187. paramSetSuiteLabel        EQU        $3
  188. paramGetSuiteLabel        EQU        $2
  189. paramGetIconCacheData    EQU        $4
  190. paramSetIconCacheData    EQU        $4
  191. paramGetIconCacheProc    EQU        $4
  192. paramSetIconCacheProc    EQU        $4
  193. paramPlotIconHandle        EQU        $6
  194. paramPlotSICNHandle        EQU        $6
  195. paramPlotCIconHandle    EQU        $6
  196.  
  197. ;    IconAction            =    ProcPtr;    {
  198. ;                                            FUNCTION IconAction(theType: ResType;
  199. ;                                                        VAR theIcon: Handle;
  200. ;                                                        yourDataPtr: Ptr): OSErr;
  201. ;                                        }
  202.                                         
  203. ;    IconGetter            =    ProcPtr;    {
  204. ;                                            FUNCTION IconGetter(theType: ResType;
  205. ;                                                        yourDataPtr: Ptr): Handle;
  206. ;                                        }
  207.  
  208. ;        FUNCTION PlotIconID(theRect: Rect; align: INTEGER;
  209. ;                            transform: INTEGER; theID: INTEGER): OSErr;
  210.         MACRO
  211.         _PlotIconID
  212.         DoDispatch    _IconDispatch, selectPlotIconID, paramPlotIconID
  213.         ENDM
  214.  
  215. ;        FUNCTION NewIconSuite(VAR theIconSuite: Handle): OSErr;
  216.         MACRO
  217.         _NewIconSuite
  218.         DoDispatch    _IconDispatch, selectNewIconSuite, paramNewIconSuite
  219.         ENDM
  220.  
  221. ;        FUNCTION AddIconToSuite(theIconData: Handle; theSuite: Handle;
  222. ;                            theType: ResType): OSErr;
  223.         MACRO
  224.         _AddIconToSuite
  225.         DoDispatch    _IconDispatch, selectAddIconToSuite, paramAddIconToSuite
  226.         ENDM
  227.  
  228. ;        FUNCTION GetIconFromSuite(VAR theIconData: Handle; theSuite: Handle;
  229. ;                            theType: ResType): OSErr;
  230.         MACRO
  231.         _GetIconFromSuite
  232.         DoDispatch    _IconDispatch, selectGetIconFromSuite, paramGetIconFromSuite
  233.         ENDM
  234.  
  235. ;        FUNCTION ForEachIconDo(theSuite: Handle; selector: LONGINT;
  236. ;                            action: IconAction; yourDataPtr: Ptr): OSErr;
  237.         MACRO
  238.         _ForEachIconDo
  239.         DoDispatch    _IconDispatch, selectForEachIconDo, paramForEachIconDo
  240.         ENDM
  241.  
  242. ;        FUNCTION GetIconSuite(VAR theIconSuite: Handle; theID: INTEGER;
  243. ;                            selector: LONGINT): OSErr;
  244.         MACRO
  245.         _GetIconSuite
  246.         DoDispatch    _IconDispatch, selectGetIconSuite, paramGetIconSuite
  247.         ENDM
  248.  
  249. ;        FUNCTION DisposeIconSuite(theIconSuite: Handle,
  250. ;                            disposeData: BOOLEAN): OSErr;
  251.         MACRO
  252.         _DisposeIconSuite
  253.         DoDispatch    _IconDispatch, selectDisposeIconSuite, paramDisposeIconSuite
  254.         ENDM
  255.  
  256. ;        FUNCTION PlotIconSuite(theRect: Rect; align: INTEGER; transform: INTEGER;
  257. ;                            theIconSuite: Handle): OSErr;
  258.         MACRO
  259.         _PlotIconSuite
  260.         DoDispatch    _IconDispatch, selectPlotIconSuite, paramPlotIconSuite
  261.         ENDM
  262.  
  263. ;        FUNCTION MakeIconCache(VAR theHandle: Handle; makeIcon: IconGetter;
  264. ;                            yourDataPtr: Ptr): OSErr;
  265.         MACRO
  266.         _MakeIconCache
  267.         DoDispatch    _IconDispatch, selectMakeIconCache, paramMakeIconCache
  268.         ENDM
  269.  
  270. ;        FUNCTION LoadIconCache(theRect: Rect; align: INTEGER; transform: INTEGER;
  271. ;                            theIconCache: Handle): OSErr;
  272.         MACRO
  273.         _LoadIconCache
  274.         DoDispatch    _IconDispatch, selectLoadIconCache, paramLoadIconCache
  275.         ENDM
  276.  
  277. ;        FUNCTION PlotIconMethod(theRect: Rect; align: INTEGER; transform: INTEGER;
  278. ;                            theMethod: IconGetter; yourDataPtr: Ptr): OSErr;
  279.         MACRO
  280.         _PlotIconMethod
  281.         DoDispatch    _IconDispatch, selectPlotIconMethod, paramPlotIconMethod
  282.         ENDM
  283.  
  284. ;        FUNCTION GetLabel(labelNumber: INTEGER; VAR labelColor: RGBColor;
  285. ;                            VAR Str255 labelString): OSErr;
  286.         MACRO
  287.         _GetLabel
  288.         DoDispatch    _IconDispatch, selectGetLabel, paramGetLabel
  289.         ENDM
  290.  
  291. ;        FUNCTION PtInIconID(testPt: Point; iconRect: Rect;
  292. ;                        align: IconAlignmentType; iconID: INTEGER): BOOLEAN;
  293.         MACRO
  294.         _PtInIconID
  295.         DoDispatch    _IconDispatch, selectPtInIconID, paramPtInIconID
  296.         ENDM
  297.  
  298. ;        FUNCTION PtInIconSuite(testPt: Point; iconRect: Rect;
  299. ;                        align: IconAlignmentType;
  300. ;                        theIconSuite: Handle): BOOLEAN;
  301.         MACRO
  302.         _PtInIconSuite
  303.         DoDispatch    _IconDispatch, selectPtInIconSuite, paramPtInIconSuite
  304.         ENDM
  305.  
  306. ;        FUNCTION PtInIconMethod(testPt: Point; iconRect: Rect;
  307. ;                        align: IconAlignmentType;
  308. ;                        theMethod: IconGetter; yourDataPtr: Ptr): BOOLEAN;
  309.         MACRO
  310.         _PtInIconMethod
  311.         DoDispatch    _IconDispatch, selectPtInIconMethod, paramPtInIconMethod
  312.         ENDM
  313.  
  314. ;        FUNCTION RectInIconID(testRect: Rect; iconRect: Rect;
  315. ;                        align: IconAlignmentType; iconID: INTEGER): BOOLEAN;
  316.         MACRO
  317.         _RectInIconID
  318.         DoDispatch    _IconDispatch, selectRectInIconID, paramRectInIconID
  319.         ENDM
  320.  
  321. ;        FUNCTION RectInIconSuite(testRect: Rect; iconRect: Rect;
  322. ;                        align: IconAlignmentType;
  323. ;                        theIconSuite: Handle): BOOLEAN;
  324.         MACRO
  325.         _RectInIconSuite
  326.         DoDispatch    _IconDispatch, selectRectInIconSuite, paramRectInIconSuite
  327.         ENDM
  328.  
  329. ;        FUNCTION RectInIconMethod(testRect: Rect; iconRect: Rect;
  330. ;                        align: IconAlignmentType;
  331. ;                        theMethod: IconGetter; yourDataPtr: Ptr): BOOLEAN;
  332.         MACRO
  333.         _RectInIconMethod
  334.         DoDispatch    _IconDispatch, selectRectInIconMethod, paramRectInIconMethod
  335.         ENDM
  336.  
  337. ;        FUNCTION IconIDToRgn(theRgn: RgnHandle; iconRect: Rect;
  338. ;                        align: IconAlignmentType; iconID: INTEGER): OSErr;
  339.         MACRO
  340.         _IconIDToRgn
  341.         DoDispatch    _IconDispatch, selectIconIDToRgn, paramIconIDToRgn
  342.         ENDM
  343.  
  344. ;        FUNCTION IconSuiteToRgn(theRgn: RgnHandle; iconRect: Rect;
  345. ;                        align: IconAlignmentType;
  346. ;                        theIconSuite: Handle): OSErr;
  347.         MACRO
  348.         _IconSuiteToRgn
  349.         DoDispatch    _IconDispatch, selectIconSuiteToRgn, paramIconSuiteToRgn
  350.         ENDM
  351.  
  352. ;        FUNCTION IconMethodToRgn(theRgn: RgnHandle; iconRect: Rect;
  353. ;                        align: IconAlignmentType;
  354. ;                        theMethod: IconGetter; yourDataPtr: Ptr): OSErr;
  355.         MACRO
  356.         _IconMethodToRgn
  357.         DoDispatch    _IconDispatch, selectIconMethodToRgn, paramIconMethodToRgn
  358.         ENDM
  359.  
  360. ;        FUNCTION SetSuiteLabel(theSuite: Handle; theLabel: INTEGER): OSErr;
  361.         MACRO
  362.         _SetSuiteLabel
  363.         DoDispatch    _IconDispatch, selectSetSuiteLabel, paramSetSuiteLabel
  364.         ENDM
  365.  
  366. ;        FUNCTION GetSuiteLabel(theSuite: Handle): INTEGER;
  367.         MACRO
  368.         _GetSuiteLabel
  369.         DoDispatch    _IconDispatch, selectGetSuiteLabel, paramGetSuiteLabel
  370.         ENDM
  371.  
  372. ;        FUNCTION GetIconCacheData(theCache: Handle; VAR theData: Ptr): OSErr;
  373.         MACRO
  374.         _GetIconCacheData
  375.         DoDispatch    _IconDispatch, selectGetIconCacheData, paramGetIconCacheData
  376.         ENDM
  377.         
  378. ;        FUNCTION SetIconCacheData(theCache: Handle; theData: Ptr): OSErr;
  379.         MACRO
  380.         _SetIconCacheData
  381.         DoDispatch    _IconDispatch, selectSetIconCacheData, paramSetIconCacheData
  382.         ENDM
  383.         
  384. ;        FUNCTION GetIconCacheProc(theCache: Handle; VAR theProc: IconGetter): OSErr;
  385.         MACRO
  386.         _GetIconCacheProc
  387.         DoDispatch    _IconDispatch, selectGetIconCacheProc, paramGetIconCacheProc
  388.         ENDM
  389.         
  390. ;        FUNCTION SetIconCacheProc(theCache: Handle; theProc: IconGetter): OSErr;
  391.         MACRO
  392.         _SetIconCacheProc
  393.         DoDispatch    _IconDispatch, selectSetIconCacheProc, paramSetIconCacheProc
  394.         ENDM
  395.         
  396. ;        FUNCTION PlotIconHandle(theRect: Rect; align: INTEGER; transform: INTEGER;
  397. ;                            theIcon: Handle): OSErr;
  398.         MACRO
  399.         _PlotIconHandle
  400.         DoDispatch    _IconDispatch, selectPlotIconHandle, paramPlotIconHandle
  401.         ENDM
  402.  
  403. ;        FUNCTION PlotSICNHandle(theRect: Rect; align: INTEGER; transform: INTEGER;
  404. ;                            theSICN: Handle): OSErr;
  405.         MACRO
  406.         _PlotSICNHandle
  407.         DoDispatch    _IconDispatch, selectPlotSICNHandle, paramPlotSICNHandle
  408.         ENDM
  409.  
  410. ;        FUNCTION PlotCIconHandle(theRect: Rect; align: INTEGER; transform: INTEGER;
  411. ;                            theCIcon: CIconHandle): OSErr;
  412.         MACRO
  413.         _PlotCIconHandle
  414.         DoDispatch    _IconDispatch, selectPlotCIconHandle, paramPlotCIconHandle
  415.         ENDM
  416.  
  417.     ENDIF    ; ...already included